﻿
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Single
        Dim b As Single

        a = CInt(TextBox1.Text)
        b = CInt(TextBox2.Text)

        Dim sum As Single
        sum = a + b

        Label1.Text = CSng(sum)

    End Sub
End Class
